Run Magazine ReRun: Strategy Games 2/rerun-strategygamesII.d64/maze run

Commodore BASIC | 2022-09-20 | 1KB | 46 lines

2 printchr$(147)"would you like instructions (y/n)?
4 [161] a$: [139] a$[179][177] "y" [175] a$[179][177]"n" [167] 4
6 [139] a$[178]"n" [167] 72
8 [153]"instructions on screen or printer (s/p)?
10 get b$: if b$<> "s" and b$<>"p" then 10
12 if b$="s"then  d=3
14 if b$="p" then d=4
16 open d,d
18 print#d,"
20 [152]d,"maze run by lysle shields
22 print#d,"
24 [152]d,"run it right: c-64; joystick
26 print#d,"
28 [152]d,"maze run offers an infinite number of
30 print#d,"mazes to solve in a fast-paced race
32 [152]d,"against the clock. press the firebutton
34 print#d,"(joystick in port 1) to start, then
36 [152]d,"maneuver the ball from the upper left
38 print#d,"left of the maze to the 'e' in the
40 [152]d,"lower right.
42 print#d,"
44 [152]d,"each time the ball passes a space
46 print#d,"the computer will add a point to your
48 [152]d,"score. back over a space and you lose
50 print#d,"a point. (you can't go below zero.)
54 [152]d,"reach the e and you get a 100 point
56 print#d,"bonus for each second on the clock.
58 [152]d,"if you run out of time, the game ends.
60 print#d,"
62 [152]d,"at first, a full minute is allowed, but
64 print#d,"the faster you solve a maze, the less
66 [152]d,"time the computer gives you to solve
68 print#d,"the next one!
70 [152]d,"":[160]d
72 [153]"press any key to begin the program..."
74 [161] e$:[139] e$[178]"" [167] 74
76 [156]
78 [143]
80 n$[178]"maze"
81 [153]"
82 print"load"chr$(34)n$chr$(34)","8"  [145][145][145]"
84 a$="run"
86 a$=a$+chr$(13)
88 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
90 new